home *** CD-ROM | disk | FTP | other *** search
/ JCSM Shareware Collection 1996 September / JCSM Shareware Collection (JCS Distribution) (September 1996).ISO / tutorial / tnum22.zip / INSTALL.FIL < prev    next >
Text File  |  1995-03-19  |  4KB  |  211 lines
  1. BACKGROUND 31
  2. SHADOW ON
  3. BEEP ON
  4.  
  5. CALL KS_TITLE
  6. PAUSE 50
  7. CALL PROG_TITLE
  8. PAUSE 50
  9. TELESCOPE OFF
  10.  
  11. SPACE 1500
  12. :GET_TARGET
  13. DRIVE C 10 19 113 31 5 12 95     'wx,wy,wc,ic,mx,my,mc
  14. PATH \TNUM 10 19 113 31 5 12 95
  15. EXIST ~1~2\*.*
  16. JUMP.NO CHK1
  17.  
  18. WINOPEN 0 20 113
  19. "The directory ~1~2 already exists! Are"
  20. "you sure you want to use this directory?  Y/N"
  21. ASK +47 +2
  22. WINCLOSE
  23. JUMP.NO GET_TARGET
  24.  
  25. :CHK1
  26. EXIST ~0\TNUM22.001
  27. JUMP.YES COPY_FILE1
  28. DISK 0 tnum22.001 10 20 47
  29.  
  30. :COPY_FILE1
  31. COPY ~0\tnum22.001 ~1~2 10 20 113
  32. JUMP.FAIL INST_FAIL
  33.  
  34. EXIST ~0\tnum22.002
  35. JUMP.YES COPY_FILE2
  36. DISK 0 tnum22.002 10 20 47
  37.  
  38. :COPY_FILE2
  39. COPY ~0\tnum22.002 ~1~2 10 20 113
  40. JUMP.FAIL INST_FAIL
  41.  
  42. EXIST ~1~2\tnum.exe
  43. JUMP.YES OVRWRITE
  44.  
  45. :COPYFILES
  46. SHELL
  47.   "~1"
  48.   "cd ~2"
  49.   "copy /b tnum22.001+tnum22.002 tnum22.exe >NUL"
  50.   "del tnum22.001"
  51.   "del tnum22.002"
  52.   "tnum22"
  53.   "del tnum22.exe"
  54.  
  55. WINOPEN 0 20 113
  56. "Would you like to view the instructions"
  57. "for Talking Number Machine?  Y/N"
  58. ASK +34 +2
  59. WINCLOSE
  60. JUMP.NO PRINT_DOC
  61. VIEW ~1~2\tnum.doc 27 112
  62.  
  63. :PRINT_DOC
  64. WINOPEN 0 20 113
  65. "Would you like to print the instructions"
  66. "for Talking Number Machine?  Y/N"
  67. ASK +34 +2
  68. WINCLOSE
  69. JUMP.NO INST_OK
  70.  
  71. :PRINT_NOW
  72. WINOPEN 0 20 116
  73. ""
  74. "  Printing...  "
  75. ""
  76. PRINT ~1~2\tnum.doc
  77. WINCLOSE
  78. JUMP.FAIL PRN_ERR
  79. JUMP INST_OK
  80.  
  81. :PRN_ERR
  82. WINOPEN 0 12 112
  83. "Your printer is not responding.  Possible problems:"
  84. ""
  85. "   ■ Printer is not attached to LPT1"
  86. "   ■ Printer is not turned on"
  87. "   ■ Printer is out of paper"
  88. ""
  89. "Do you want to try to print again?  Y/N"
  90. ASK +42 +7
  91. WINCLOSE
  92. JUMP.YES PRINT_NOW
  93.  
  94. :INST_OK
  95. TELESCOPE ON
  96. WINOPEN 5 14 113
  97. " Installation was successful. Use the "
  98. " following commands to run TNUM:"
  99. "       ~1"
  100. "       CD ~2"
  101. "       TNUM"
  102. ""
  103. " Would you like to run"
  104. " Talking Number Machine now?  Y/N"
  105. ASK +35 +8
  106. WINCLOSE
  107. JUMP.NO THE_END
  108. RUN tnum.exe
  109.  
  110. :THE_END
  111. WINCLOSE   'close title win1
  112. WINCLOSE   'close title win2
  113. END  'normal install
  114.  
  115. :KS_TITLE
  116. BORDER 0
  117. WINOPEN 2 2 53
  118. "          "
  119. "                              "
  120. "                              "
  121. "                              "
  122. "                              "
  123. "                              "
  124. "                              "
  125. "                              "
  126. "                              "
  127. "          "
  128. WINUPDATE +10 +3 58
  129. "K"
  130. WINUPDATE +11 +3 59
  131. "i"
  132. WINUPDATE +12 +3 60
  133. "d"
  134. WINUPDATE +13 +3 61
  135. "S"
  136. WINUPDATE +14 +3 62
  137. "t"
  138. WINUPDATE +15 +3 63
  139. "u"
  140. WINUPDATE +16 +3 49
  141. "f"
  142. WINUPDATE +17 +3 53
  143. "f"
  144. WINUPDATE +19 +3 58
  145. "S"
  146. WINUPDATE +20 +3 59
  147. "o"
  148. WINUPDATE +21 +3 60
  149. "f"
  150. WINUPDATE +22 +3 61
  151. "t"
  152. WINUPDATE +23 +3 62
  153. "w"
  154. WINUPDATE +24 +3 63
  155. "a"
  156. WINUPDATE +25 +3 49
  157. "r"
  158. WINUPDATE +26 +3 53
  159. "e"
  160. WINUPDATE +11 +5 48
  161. "6490 Dubois Rd."
  162. WINUPDATE +7 +6 48
  163. "Lewis Center, OH 43035"
  164. WINUPDATE +4 +7 48
  165. "614-548-5043  CIS 71043,3706"
  166. WINUPDATE +5 +9 59
  167. "Educational Software 4 Kids"
  168. BORDER 1
  169. RETURN
  170.  
  171. :PROG_TITLE
  172. WINOPEN 42 5 95
  173. "                                "
  174. ""
  175. ""
  176. "Register TNUM for $10.00 and"
  177. "receive 150 additional number"
  178. "facts for the number machine, a"
  179. "utility program to add your own"
  180. "facts to the program, and Sound"
  181. "Card support."
  182. ""
  183. WINUPDATE +4 +2 91
  184. "Talking Number Machine 2.2 sw"
  185. RETURN
  186.  
  187. :OVRWRITE
  188. WINOPEN 5 18 47
  189. "A previous version of this program was "
  190. "detected. Please enter Y in response to"
  191. "any overwrite messages you may see on"
  192. "the next screen.          Press [Enter]"
  193. WAIT +41 +4
  194. WINCLOSE
  195. JUMP COPYFILES
  196.  
  197. :INST_FAIL
  198. WINOPEN 0 13 112
  199. "THE INSTALLATION PROGRAM FAILED PRIOR TO COMPLETION"
  200. "Possible reasons:"
  201. ""
  202. "  ■ The floppy disk was removed prior to completion."
  203. "  ■ The floppy disk was damaged during shipping."
  204. "  ■ Your disk drive is out of alignment."
  205. ""
  206. "Please contact KidStuff Software.      Press [Enter]"
  207. WAIT +54 +8
  208. DELETE ~1~2\*.* 0 0 31
  209. RD ~1~2
  210. WINCLOSE
  211.